Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue35/refint/REFINT.ZIP/Unit1.dfm/Unit1.txt

Text File | 1998-05-27 | 4.2 KB | 179 lines

object Form1: TForm1
  Left = 202
  Top = 110
  Width = 588
  Height = 402
  Caption = 'Referential Integrity'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poDefault
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter2: TSplitter
    Left = 0
    Top = 193
    Width = 580
    Height = 4
    Cursor = crVSplit
    Align = alTop
  end
  object Panel4: TPanel
    Left = 0
    Top = 197
    Width = 580
    Height = 159
    Align = alClient
    TabOrder = 2
    object Splitter3: TSplitter
      Left = 161
      Top = 1
      Width = 4
      Height = 157
      Cursor = crHSplit
      OnMoved = Splitter3Moved
    end
    object DBGParentTables: TDBGrid
      Left = 1
      Top = 1
      Width = 160
      Height = 157
      Align = alLeft
      DataSource = RefInt1.
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object DBGParentFields: TDBGrid
      Left = 165
      Top = 1
      Width = 414
      Height = 157
      Align = alClient
      DataSource = RefInt1.
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 49
    Width = 580
    Height = 144
    Align = alTop
    Caption = 'Panel3'
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 161
      Top = 1
      Width = 4
      Height = 142
      Cursor = crHSplit
      OnMoved = Splitter1Moved
    end
    object DBGTables: TDBGrid
      Left = 1
      Top = 1
      Width = 160
      Height = 142
      Align = alLeft
      DataSource = RefInt1.
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object DBGFields: TDBGrid
      Left = 165
      Top = 1
      Width = 414
      Height = 142
      Align = alClient
      DataSource = RefInt1.
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 0
    Width = 580
    Height = 49
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 59
      Top = 20
      Width = 55
      Height = 13
      Caption = 'Database : '
    end
    object CBDatabases: TComboBox
      Left = 120
      Top = 16
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = CBDatabasesChange
    end
  end
  object MainMenu1: TMainMenu
    Left = 80
    Top = 120
    object Quit1: TMenuItem
      Caption = '&Quit'
      OnClick = Quit1Click
    end
    object Integrity1: TMenuItem
      Caption = '&Integrity'
      object Clearall1: TMenuItem
        Caption = '&Clear all'
        OnClick = Clearall1Click
      end
      object Setall1: TMenuItem
        Caption = '&Save'
        OnClick = Setall1Click
      end
    end
    object Register1: TMenuItem
      Caption = '&Register'
      OnClick = Register1Click
    end
  end
  object RefInt1: TRefInt
    Active = False
    AliasName = 'DBGestion'
    DBGFields = DBGFields
    DBGParentFields = DBGParentFields
    DBGParentTables = DBGParentTables
    DBGTables = DBGTables
    InternalAliasName = 'RefInt'
    Left = 248
    Top = 129
  end
end